home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / dialog / demo3d / form1.frm next >
Text File  |  1995-03-24  |  2KB  |  84 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "CTL3D Demo..."
  6.    ClientHeight    =   2052
  7.    ClientLeft      =   1188
  8.    ClientTop       =   2208
  9.    ClientWidth     =   5916
  10.    Height          =   2472
  11.    Left            =   1140
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   2052
  14.    ScaleWidth      =   5916
  15.    Top             =   1836
  16.    Width           =   6012
  17.    Begin CommandButton Command3 
  18.       Caption         =   "Exit"
  19.       Height          =   372
  20.       Left            =   3672
  21.       TabIndex        =   2
  22.       Top             =   1512
  23.       Width           =   1452
  24.    End
  25.    Begin CommandButton Command2 
  26.       Caption         =   "Message Box"
  27.       Height          =   372
  28.       Left            =   2232
  29.       TabIndex        =   1
  30.       Top             =   1512
  31.       Width           =   1308
  32.    End
  33.    Begin CommandButton Command1 
  34.       Caption         =   "Dialog Box"
  35.       Height          =   372
  36.       Left            =   864
  37.       TabIndex        =   0
  38.       Top             =   1512
  39.       Width           =   1236
  40.    End
  41.    Begin Label Label1 
  42.       BackStyle       =   0  'Transparent
  43.       Caption         =   "This is a demonstration for using CTL3D.DLL in creating 3D dialog boxes for your applications.  This code is compiled from a few sources and has been mentioned in the procedures commented sections.   This demo actually uses CTL3DV2.DLL as it seems to be a better 3D DLL.  However, if you do not have CTL3DV2.DLL, just remove the V2 from the declare statements."
  44.       Height          =   1308
  45.       Left            =   144
  46.       TabIndex        =   3
  47.       Top             =   216
  48.       Width           =   5628
  49.    End
  50. End
  51. Option Explicit
  52.  
  53. Sub Command1_Click ()
  54.  
  55. Form2.Show 1
  56.  
  57.  
  58. End Sub
  59.  
  60. Sub Command2_Click ()
  61.  
  62. MsgBox "This is a message box"
  63.  
  64.  
  65. End Sub
  66.  
  67. Sub Command3_Click ()
  68.  
  69. Unload Me
  70.  
  71. ExitProgram
  72.  
  73.  
  74. End Sub
  75.  
  76. Sub Form_Load ()
  77.  
  78. 'For the Demo, make me appear in the middle.
  79. CenterForm Me
  80.  
  81.  
  82. End Sub
  83.  
  84.